Hyper Stacks 1994 May/Hyper Stacks (Pacific HiTech)(1994)[Mac].iso/Science/Biology/WayeBox Folder/WayeBox 1.1/box3/background_2624.txt

Text File | 1990-06-13 | 9.4 KB | 447 lines

-- background: 2624 from stack: in
-- bmap block id: 6480
-- flags: 0000
-- background id: 0
-- name: waye address


-- part 103 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=302 top=292 right=342 bottom=379
-- title width / last selected line: 0
-- icon id / first selected line: 27056 / 27056
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: go to stack 1
----- HyperTalk script -----
on mouseUp
  get word 3 of field 3
  go to card id it of stack "BOX 2"
  -- && put your own stack name in place of BOX 2


end mouseUp



-- part 114 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=155 top=309 right=337 bottom=192
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  go to previous card
end mouseUp


-- part 115 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=203 top=310 right=338 bottom=239
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  go to next card
end mouseUp


-- part 125 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=17 top=294 right=338 bottom=120
-- title width / last selected line: 0
-- icon id / first selected line: 21209 / 21209
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: date
----- HyperTalk script -----
on mouseUp
  put the date into bkgnd field "date"

end mouseUp



-- part 127 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=434 top=289 right=308 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: location


-- part 128 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=89 top=303 right=322 bottom=196
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: date


-- part 129 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=90 top=280 right=299 bottom=197
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ID


-- part 130 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=385 top=273 right=292 bottom=492
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: name


-- part 131 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=420 top=306 right=324 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: shelf Name


-- part 132 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=429 top=322 right=339 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: freezer name


-- part 133 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=13 top=248 right=270 bottom=113
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: go to shelf
----- HyperTalk script -----
on mouseUp
  push card
  if field "shelf name" is empty then
    ask "what is the name of the shelf"
    if it is empty then exit mouseUp
    put it into field "Shelf Name"
  end if
  put field "shelf Name" into ShelfName
  go to stack "box2"
  go to card item 1 of ShelfName
end mouseUp




-- part 134 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=144 top=250 right=274 bottom=249
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: rename button
----- HyperTalk script -----
on mouseUp

  ask "What's the button number ?"
  put it into bu
  if it is empty then exit mouseUp
  set the script of button bu to empty
  get the script of backgrounD button "script template"
  set the script of button bu to it
  set the name of button bu to item 1 of field "name"

end mouseUp



-- part 135 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=264 top=250 right=272 bottom=364
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: pop card
----- HyperTalk script -----
on mouseUp
  pop card
end mouseUp



-- part 136 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=390 top=249 right=273 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: script template
----- HyperTalk script -----
on mouseUp
  get word 3 of field 3
  go to card id it of stack "box4"
end mouseUp



-- part 138 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=197 top=276 right=298 bottom=297
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: go to freezer
----- HyperTalk script -----
on mouseUp
  push card
  if field "freezer name" is empty then
    ask "what is the name of the freezer"
    if it is empty then exit mouseUp
    put it into field "freezer Name"
  end if
  put field "freezer Name" into FreezerName
  go to stack "box2"
  go to card item 1 of FreezerName
end mouseUp




-- part 139 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=391 top=223 right=245 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: no. of cards
----- HyperTalk script -----
on mouseUp
  set userlevel to 5
  put empty into message box
  get number of cards
  put "The total Number of Cards = " into word 1 of message
  put it into word 7 of message
  set userlevel to 2
end mouseUp



-- part 140 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=16 top=269 right=291 bottom=86
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Empty all
----- HyperTalk script -----
on mouseUp
  answer "Do you want to empty all fields?" with "yes" or "no" or "cancel"
  if it is "no" then exit mouseUp
  if it is "cancel" then exit mouseUp
  repeat with i=1 to 7
    put empty into field i
  end repeat
end mouseUp



-- part 142 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=107 top=197 right=216 bottom=214
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: name of box


-- part 144 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=244 top=299 right=340 bottom=292
-- title width / last selected line: 0
-- icon id / first selected line: 32462 / 32462
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  push card
  go to card id 11167 of stack "box4"
end mouseUp




-- part 145 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=391 top=196 right=220 bottom=488
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Name Card
----- HyperTalk script -----
on mouseUp
  put empty into NameCard
  if field "Name of Box" is empty
  then
  ask "Please enter the name of this card:"
  if it is empty then exit mouseUp
  put it into NameCard
  set the name of this card to empty
  put NameCard into field "Name of Box"
end if

if field "Name of Box" is not empty
then
put first line of field "Name of Box" into NameCard
set the name of this card to NameCard
end if

end mouseUp



-- part 146 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=12 top=224 right=245 bottom=94
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Card
----- HyperTalk script -----
on mouseUp
  answer "Make another card like this one? " with "yes" or "no" or "cancel"
  if it is "cancel" then exit mouseUp
  if it is "no" then
    put "Go to the card which you want to copy" into the message box
    exit mouseUp
  end if

  if it is "yes" then

    domenu "copy Card"
    domenu paste card
    set name of this card to empty
    repeat with i=1 to number of fields
      put empty into field i
    end repeat
    repeat with i=1 to number of card fields
      put empty into field i
    end repeat
    put empty into field "Name"
  end if

end mouseUp